Chip: Net Guide/CHIP NET Rehberi Eylül 1998.iso/ftp/ADFiles/_setup.1/ADFiles.exe/0/RCDATA/TASETUP/TASETUP.txt

Text File | 1998-04-27 | 28.8 KB | 1,142 lines

object ASetup: TASetup
  Left = 267
  Top = 119
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Setup'
  ClientHeight = 383
  ClientWidth = 292
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PanelMain: TPanel
    Left = 0
    Top = 0
    Width = 292
    Height = 349
    BevelInner = bvLowered
    TabOrder = 0
    object TotalSetup: TPageControl
      Left = 2
      Top = 2
      Width = 288
      Height = 345
      ActivePage = tsUploader
      Align = alClient
      MultiLine = True
      TabOrder = 0
      object DLSetup: TTabSheet
        Caption = 'Downloader  Setup'
        object GroupBox1: TGroupBox
          Left = 4
          Top = 45
          Width = 272
          Height = 67
          Caption = '  Errors  '
          TabOrder = 0
          object lbBreakconn: TLabel
            Left = 213
            Top = 15
            Width = 26
            Height = 13
            Caption = 'errors'
          end
          object cbDLCountEnters: TCheckBox
            Left = 14
            Top = 14
            Width = 137
            Height = 17
            Caption = '  break connection after '
            TabOrder = 0
            OnClick = cbAutoDialClick
          end
          object cbErrorNotRest: TCheckBox
            Left = 14
            Top = 39
            Width = 207
            Height = 17
            Caption = '  break if restart not supported on server'
            TabOrder = 1
            OnClick = cbAutoDialClick
          end
          object edDLNumberOfEnters: TEdit
            Tag = 2
            Left = 153
            Top = 12
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 3
            Text = '3'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownDL: TUpDown
            Tag = 2
            Left = 192
            Top = 12
            Width = 15
            Height = 21
            Associate = edDLNumberOfEnters
            Min = 1
            Max = 99
            Position = 3
            TabOrder = 2
            Wrap = False
            OnClick = UpDownFTPClick
          end
        end
        object GroupBox3: TGroupBox
          Left = 4
          Top = 115
          Width = 272
          Height = 168
          Caption = '  Work  '
          TabOrder = 1
          object Label7: TLabel
            Left = 236
            Top = 115
            Width = 25
            Height = 13
            Caption = 'bytes'
          end
          object Label8: TLabel
            Left = 45
            Top = 115
            Width = 124
            Height = 13
            Caption = 'Rollback before download'
          end
          object Label14: TLabel
            Left = 20
            Top = 142
            Width = 150
            Height = 13
            Caption = 'Size of data buffer for download'
          end
          object Label15: TLabel
            Left = 236
            Top = 142
            Width = 25
            Height = 13
            Caption = 'bytes'
          end
          object cbRunDownload: TCheckBox
            Left = 14
            Top = 12
            Width = 217
            Height = 17
            Caption = 'run download after put to Downloader'
            TabOrder = 0
            OnClick = cbAutoDialClick
          end
          object rbParallelJob: TRadioButton
            Left = 13
            Top = 35
            Width = 184
            Height = 17
            Caption = '  all downloads make in parallel'
            TabOrder = 1
            OnClick = rbParallelJobClick
          end
          object Panel1: TPanel
            Left = 4
            Top = 53
            Width = 265
            Height = 52
            BevelInner = bvLowered
            TabOrder = 2
            object rbNotParallelJob: TRadioButton
              Left = 9
              Top = 6
              Width = 148
              Height = 17
              Caption = '  all downloads make as  :'
              TabOrder = 0
              OnClick = rbNotParallelJobClick
            end
            object PanelNotParJob: TPanel
              Left = 3
              Top = 26
              Width = 259
              Height = 23
              BevelOuter = bvNone
              TabOrder = 1
              object F2: TLabel
                Left = 142
                Top = 4
                Width = 78
                Height = 13
                Caption = 'file(s) in one time'
              end
              object F1: TLabel
                Left = 32
                Top = 3
                Width = 49
                Height = 13
                Caption = 'download '
              end
              object edCountDLFiles: TEdit
                Tag = 2
                Left = 85
                Top = 0
                Width = 39
                Height = 21
                AutoSize = False
                TabOrder = 0
                Text = '1'
                OnKeyPress = edNumberOfEntersKeyPress
              end
              object UpDownDLFiles: TUpDown
                Tag = 2
                Left = 124
                Top = 0
                Width = 15
                Height = 21
                Associate = edCountDLFiles
                Min = 1
                Max = 99
                Position = 1
                TabOrder = 1
                Wrap = False
                OnClick = UpDownFTPClick
              end
            end
          end
          object edDLRollBack: TEdit
            Tag = 2
            Left = 176
            Top = 112
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 3
            Text = '0'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownDLRollBack: TUpDown
            Tag = 2
            Left = 215
            Top = 112
            Width = 15
            Height = 21
            Associate = edDLRollBack
            Min = 0
            Max = 10000
            Increment = 500
            Position = 0
            TabOrder = 4
            Wrap = False
            OnClick = UpDownFTPClick
          end
          object edDLData: TEdit
            Tag = 2
            Left = 176
            Top = 139
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 5
            Text = '0'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownDLData: TUpDown
            Tag = 2
            Left = 215
            Top = 139
            Width = 15
            Height = 21
            Associate = edDLData
            Min = 4096
            Max = 20480
            Increment = 1024
            Position = 4096
            TabOrder = 6
            Wrap = False
            OnClick = UpDownFTPClick
          end
        end
        object TGroupBox
          Left = 4
          Top = -1
          Width = 272
          Height = 44
          Caption = '  Download directory  '
          TabOrder = 2
          object edDownLoadDir: TEdit
            Left = 53
            Top = 14
            Width = 212
            Height = 21
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnKeyPress = edUserKeyPress
            OnMouseMove = edDownLoadDirMouseMove
          end
          object btDir: TButton
            Left = 8
            Top = 15
            Width = 46
            Height = 20
            Caption = 'Dir'
            TabOrder = 1
            OnClick = btDirClick
          end
        end
      end
      object UrlFtpSetup: TTabSheet
        Caption = 'Ftp Explorer Setup'
        OnEnter = DialUpSetupEnter
        object GroupBox2: TGroupBox
          Left = 4
          Top = 54
          Width = 272
          Height = 70
          Caption = '  Fill Url  '
          TabOrder = 0
          object cbFillUrl: TCheckBox
            Left = 11
            Top = 13
            Width = 258
            Height = 17
            Caption = '  fill Url info with oficial name host after get host info'
            TabOrder = 0
            OnClick = cbAutoDialClick
          end
          object cbFillAboutSite: TCheckBox
            Left = 11
            Top = 45
            Width = 211
            Height = 17
            Caption = '  fill Url info about site with info after login'
            TabOrder = 1
          end
        end
        object GroupBox4: TGroupBox
          Left = 4
          Top = 1
          Width = 272
          Height = 51
          Caption = '  Errors  '
          TabOrder = 1
          object Label1: TLabel
            Left = 212
            Top = 20
            Width = 26
            Height = 13
            Caption = 'errors'
          end
          object cbFtpBreak: TCheckBox
            Left = 11
            Top = 19
            Width = 137
            Height = 17
            Caption = '  break connection after '
            TabOrder = 0
            OnClick = cbAutoDialClick
          end
          object edNumberOfEnters: TEdit
            Tag = 2
            Left = 152
            Top = 17
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 2
            Text = '1'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownFTP: TUpDown
            Tag = 2
            Left = 191
            Top = 17
            Width = 15
            Height = 21
            Associate = edNumberOfEnters
            Min = 1
            Max = 99
            Position = 1
            TabOrder = 1
            Wrap = False
            OnClick = UpDownFTPClick
          end
        end
      end
      object DialUpSetup: TTabSheet
        Caption = 'Dial Up Setup'
        OnEnter = DialUpSetupEnter
        object gbDialing: TRadioGroup
          Left = 5
          Top = 229
          Width = 269
          Height = 54
          Caption = '  Method of dialing  '
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            'asynchronize dialing'
            'synchronize dialing')
          TabOrder = 0
          OnClick = cbAutoDialClick
        end
        object gbConnect: TGroupBox
          Left = 5
          Top = 117
          Width = 269
          Height = 107
          Caption = '  Connections  '
          TabOrder = 1
          object cbAutoDial: TCheckBox
            Left = 12
            Top = 14
            Width = 169
            Height = 17
            Caption = '  auto dial on break connect'
            TabOrder = 0
            OnClick = cbAutoDialClick
          end
          object cbBreakToEnd: TCheckBox
            Left = 12
            Top = 62
            Width = 221
            Height = 17
            Caption = '  break connection on exit from application'
            TabOrder = 1
            OnClick = cbAutoDialClick
          end
          object cbAutoConnect: TCheckBox
            Left = 12
            Top = 38
            Width = 221
            Height = 17
            Caption = '  auto connection on begin of application'
            TabOrder = 2
            OnClick = cbAutoDialClick
          end
          object cbStayConnect: TCheckBox
            Left = 12
            Top = 84
            Width = 221
            Height = 17
            Caption = '  stay connect while job is present'
            TabOrder = 3
            OnClick = cbAutoDialClick
          end
        end
        object gbData: TGroupBox
          Left = 5
          Top = 1
          Width = 269
          Height = 112
          Caption = '  Data  '
          TabOrder = 2
          object Label2: TLabel
            Left = 65
            Top = 38
            Width = 60
            Height = 13
            Caption = 'User name  :'
          end
          object Label3: TLabel
            Left = 70
            Top = 61
            Width = 55
            Height = 13
            Caption = 'Password  :'
          end
          object Label5: TLabel
            Left = 4
            Top = 83
            Width = 121
            Height = 13
            Caption = 'Time out connect  (sec)  :'
          end
          object cbConnections: TComboBox
            Left = 53
            Top = 14
            Width = 209
            Height = 19
            Style = csOwnerDrawFixed
            ItemHeight = 13
            TabOrder = 0
            OnChange = cbConnectionsChange
            OnDrawItem = cbConnectionsDrawItem
          end
          object edUser: TEdit
            Left = 133
            Top = 35
            Width = 129
            Height = 21
            TabOrder = 1
            OnKeyPress = edUserKeyPress
          end
          object edPass: TEdit
            Left = 133
            Top = 58
            Width = 129
            Height = 21
            TabOrder = 2
            OnKeyPress = edUserKeyPress
          end
          object edTimeOut: TCurrencyEdit
            Left = 133
            Top = 81
            Width = 129
            Height = 21
            Alignment = taLeftJustify
            AutoSelect = False
            AutoSize = False
            BeepOnError = False
            DecimalPlaces = 0
            DisplayFormat = '0'
            TabOrder = 3
            OnKeyPress = edUserKeyPress
          end
          object btEditEntry: TButton
            Left = 8
            Top = 14
            Width = 46
            Height = 20
            Caption = 'Edit'
            TabOrder = 4
            OnClick = btEditEntryClick
          end
          object btNew: TButton
            Left = 9
            Top = 35
            Width = 46
            Height = 20
            Caption = 'New'
            TabOrder = 5
            OnClick = btNewClick
          end
          object btDelete: TButton
            Left = 9
            Top = 56
            Width = 46
            Height = 20
            Caption = 'Delete'
            TabOrder = 6
            OnClick = btDeleteClick
          end
        end
      end
      object CommonSetup: TTabSheet
        Caption = 'Common Setup'
        OnEnter = DialUpSetupEnter
        object GroupBox6: TGroupBox
          Left = 4
          Top = 3
          Width = 272
          Height = 52
          Caption = '  Anything info  '
          TabOrder = 0
          object cbDropBox: TCheckBox
            Left = 11
            Top = 19
            Width = 223
            Height = 17
            Caption = '   show drop box after begin of application'
            TabOrder = 0
            OnClick = cbAutoDialClick
          end
        end
      end
      object tsUploader: TTabSheet
        Caption = 'Uploader Setup'
        object gbErrorsUp: TGroupBox
          Left = 4
          Top = 0
          Width = 272
          Height = 69
          Caption = '  Errors  '
          TabOrder = 0
          object Label6: TLabel
            Left = 215
            Top = 16
            Width = 26
            Height = 13
            Caption = 'errors'
          end
          object cbUpCountEnters: TCheckBox
            Left = 14
            Top = 15
            Width = 137
            Height = 17
            Caption = '  break connection after '
            TabOrder = 0
            OnClick = cbAutoDialClick
          end
          object cbErrorUpNotRest: TCheckBox
            Left = 14
            Top = 42
            Width = 207
            Height = 17
            Caption = '  break if restart not supported on server'
            TabOrder = 1
            OnClick = cbAutoDialClick
          end
          object edUpNumberOfEnters: TEdit
            Tag = 2
            Left = 155
            Top = 13
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 3
            Text = '1'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownUp: TUpDown
            Tag = 2
            Left = 194
            Top = 13
            Width = 15
            Height = 21
            Associate = edUpNumberOfEnters
            Min = 1
            Max = 99
            Position = 1
            TabOrder = 2
            Wrap = False
            OnClick = UpDownFTPClick
          end
        end
        object gbWorkUp: TGroupBox
          Left = 4
          Top = 73
          Width = 272
          Height = 175
          Caption = '  Work  '
          TabOrder = 1
          object Label9: TLabel
            Left = 57
            Top = 122
            Width = 110
            Height = 13
            Caption = 'Rollback before upload'
          end
          object Label10: TLabel
            Left = 234
            Top = 123
            Width = 25
            Height = 13
            Caption = 'bytes'
          end
          object Label16: TLabel
            Left = 31
            Top = 149
            Width = 136
            Height = 13
            Caption = 'Size of data buffer for upload'
          end
          object Label17: TLabel
            Left = 236
            Top = 149
            Width = 25
            Height = 13
            Caption = 'bytes'
          end
          object cbRunUpload: TCheckBox
            Left = 14
            Top = 14
            Width = 217
            Height = 17
            Caption = 'run upload after put to Uploader'
            TabOrder = 0
            OnClick = cbAutoDialClick
          end
          object rbParallelJobUp: TRadioButton
            Left = 13
            Top = 39
            Width = 184
            Height = 17
            Caption = '  all uploads make in parallel'
            TabOrder = 1
            OnClick = rbParallelJobUpClick
          end
          object Panel3: TPanel
            Left = 4
            Top = 58
            Width = 265
            Height = 55
            BevelInner = bvLowered
            TabOrder = 2
            object rbNotParallelJobUp: TRadioButton
              Left = 9
              Top = 7
              Width = 139
              Height = 17
              Caption = '  all uploads make as  :'
              TabOrder = 0
              OnClick = rbNotParallelJobUpClick
            end
            object Panel4: TPanel
              Left = 3
              Top = 25
              Width = 259
              Height = 28
              BevelOuter = bvNone
              TabOrder = 1
              object F4: TLabel
                Left = 142
                Top = 7
                Width = 78
                Height = 13
                Caption = 'file(s) in one time'
              end
              object F3: TLabel
                Left = 32
                Top = 6
                Width = 35
                Height = 13
                Caption = 'upload '
              end
              object edCountUPFiles: TEdit
                Tag = 2
                Left = 85
                Top = 3
                Width = 39
                Height = 21
                AutoSize = False
                TabOrder = 0
                Text = '1'
                OnKeyPress = edNumberOfEntersKeyPress
              end
              object UpDownUPFiles: TUpDown
                Tag = 2
                Left = 124
                Top = 3
                Width = 15
                Height = 21
                Associate = edCountUPFiles
                Min = 1
                Max = 99
                Position = 1
                TabOrder = 1
                Wrap = False
                OnClick = UpDownFTPClick
              end
            end
          end
          object edUPRollBack: TEdit
            Tag = 2
            Left = 176
            Top = 119
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 3
            Text = '0'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownUPRollBack: TUpDown
            Tag = 2
            Left = 215
            Top = 119
            Width = 15
            Height = 21
            Associate = edUPRollBack
            Min = 0
            Max = 10000
            Increment = 500
            Position = 0
            TabOrder = 4
            Wrap = False
            OnClick = UpDownFTPClick
          end
          object edUPData: TEdit
            Tag = 2
            Left = 176
            Top = 146
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 5
            Text = '4096'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownUPData: TUpDown
            Tag = 2
            Left = 215
            Top = 146
            Width = 15
            Height = 21
            Associate = edUPData
            Min = 4096
            Max = 20480
            Increment = 1024
            Position = 4096
            TabOrder = 6
            Wrap = False
            OnClick = UpDownFTPClick
          end
        end
      end
      object tsColors: TTabSheet
        Caption = 'Colors/Misc Setup'
        object GroupBox5: TGroupBox
          Left = 4
          Top = 2
          Width = 272
          Height = 88
          Caption = '  Downloader  '
          TabOrder = 0
          object Label4: TLabel
            Left = 62
            Top = 61
            Width = 59
            Height = 13
            Caption = 'Scale: 100%'
          end
          object Label11: TLabel
            Left = 194
            Top = 62
            Width = 25
            Height = 13
            Caption = 'bytes'
          end
          object btDLColor: TButton
            Left = 12
            Top = 19
            Width = 56
            Height = 20
            Caption = 'Graph '
            TabOrder = 0
            OnClick = btDLColorClick
          end
          object btDLPercent: TButton
            Left = 108
            Top = 19
            Width = 56
            Height = 20
            Caption = 'Percent'
            TabOrder = 1
            OnClick = btDLPercentClick
          end
          object btDLSpeed: TButton
            Left = 204
            Top = 19
            Width = 56
            Height = 20
            Caption = 'Speed'
            TabOrder = 2
            OnClick = btDLSpeedClick
          end
          object GroupBox7: TGroupBox
            Left = 12
            Top = 11
            Width = 249
            Height = 39
            Caption = '  Colors  '
            TabOrder = 3
            object Button1: TButton
              Left = 10
              Top = 12
              Width = 56
              Height = 20
              Caption = 'Graph '
              TabOrder = 0
              OnClick = btDLColorClick
            end
            object Button2: TButton
              Left = 98
              Top = 12
              Width = 56
              Height = 20
              Caption = 'Percent'
              TabOrder = 1
              OnClick = btDLPercentClick
            end
            object Button3: TButton
              Left = 185
              Top = 12
              Width = 56
              Height = 20
              Caption = 'Speed'
              TabOrder = 2
              OnClick = btDLSpeedClick
            end
          end
          object edDLScale: TEdit
            Tag = 2
            Left = 131
            Top = 57
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 4
            Text = '1000'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownDLScale: TUpDown
            Tag = 2
            Left = 170
            Top = 57
            Width = 15
            Height = 21
            Associate = edDLScale
            Min = 1000
            Max = 20000
            Position = 1000
            TabOrder = 5
            Wrap = False
            OnClick = UpDownFTPClick
          end
        end
        object GroupBox8: TGroupBox
          Left = 4
          Top = 96
          Width = 272
          Height = 88
          Caption = '  Uploader  '
          TabOrder = 1
          object Label12: TLabel
            Left = 62
            Top = 61
            Width = 59
            Height = 13
            Caption = 'Scale: 100%'
          end
          object Label13: TLabel
            Left = 194
            Top = 62
            Width = 25
            Height = 13
            Caption = 'bytes'
          end
          object Button4: TButton
            Left = 12
            Top = 19
            Width = 56
            Height = 20
            Caption = 'Graph '
            TabOrder = 0
            OnClick = btDLColorClick
          end
          object Button5: TButton
            Left = 108
            Top = 19
            Width = 56
            Height = 20
            Caption = 'Percent'
            TabOrder = 1
            OnClick = btDLPercentClick
          end
          object Button6: TButton
            Left = 204
            Top = 19
            Width = 56
            Height = 20
            Caption = 'Speed'
            TabOrder = 2
            OnClick = btDLSpeedClick
          end
          object GroupBox9: TGroupBox
            Left = 12
            Top = 11
            Width = 249
            Height = 39
            Caption = '  Colors  '
            TabOrder = 3
            object btUPGraph: TButton
              Left = 10
              Top = 12
              Width = 56
              Height = 20
              Caption = 'Graph '
              TabOrder = 0
              OnClick = btUPGraphClick
            end
            object btUPPercent: TButton
              Left = 98
              Top = 12
              Width = 56
              Height = 20
              Caption = 'Percent'
              TabOrder = 1
              OnClick = btUPPercentClick
            end
            object btUPSpeed: TButton
              Left = 185
              Top = 12
              Width = 56
              Height = 20
              Caption = 'Speed'
              TabOrder = 2
              OnClick = btUPSpeedClick
            end
          end
          object edUPScale: TEdit
            Tag = 2
            Left = 131
            Top = 57
            Width = 39
            Height = 21
            AutoSize = False
            TabOrder = 4
            Text = '1000'
            OnKeyPress = edNumberOfEntersKeyPress
          end
          object UpDownUPScale: TUpDown
            Tag = 2
            Left = 170
            Top = 57
            Width = 15
            Height = 21
            Associate = edUPScale
            Min = 1000
            Max = 20000
            Position = 1000
            TabOrder = 5
            Wrap = False
            OnClick = UpDownFTPClick
          end
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 349
    Width = 292
    Height = 34
    BevelInner = bvLowered
    TabOrder = 1
    object btOk: TButton
      Left = 102
      Top = 5
      Width = 59
      Height = 24
      Caption = 'Ok'
      TabOrder = 0
      OnClick = btOkClick
    end
    object btCancel: TButton
      Left = 165
      Top = 5
      Width = 59
      Height = 24
      Caption = 'Cancel'
      TabOrder = 1
      OnClick = btCancelClick
    end
    object btApply: TButton
      Left = 228
      Top = 5
      Width = 59
      Height = 24
      Caption = 'Apply'
      Enabled = False
      TabOrder = 2
      OnClick = btApplyClick
    end
  end
  object DirPanel: TPanel
    Left = 274
    Top = 141
    Width = 258
    Height = 202
    BevelInner = bvLowered
    BorderWidth = 1
    TabOrder = 2
    object PanelTree: TPanel
      Left = 4
      Top = 30
      Width = 249
      Height = 144
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object TreeView: TTreeView
        Left = 0
        Top = 0
        Width = 245
        Height = 140
        Indent = 19
        OnEditing = TreeViewEditing
        OnEdited = TreeViewEdited
        OnExpanding = TreeViewExpanding
        OnCollapsing = TreeViewCollapsing
        Align = alClient
        SortType = stBoth
        TabOrder = 0
        TabStop = False
        OnDblClick = TreeViewDblClick
        PopupMenu = PopupMenu1
        ParentShowHint = False
        ShowHint = False
        Images = ImagesTree
        StateImages = ImagesTree
      end
    end
    object Panel9: TPanel
      Left = 5
      Top = 4
      Width = 248
      Height = 23
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 1
      object DriveComboBox: TDriveComboBox
        Left = 0
        Top = 0
        Width = 244
        Height = 19
        TabOrder = 0
        OnChange = DriveComboBoxChange
      end
    end
    object btCancel2: TButton
      Left = 145
      Top = 177
      Width = 46
      Height = 20
      Caption = 'Cancel'
      TabOrder = 2
      OnClick = btCancel2Click
    end
    object btOk2: TButton
      Left = 67
      Top = 177
      Width = 46
      Height = 20
      Caption = 'Ok'
      TabOrder = 3
      OnClick = btOk2Click
    end
  end
  object Images: TImageList
    ShareImages = True
    Left = 3
    Top = 352
  end
  object ImagesTree: TImageList
    Left = 38
    Top = 352
  end
  object PopupMenu1: TPopupMenu
    Left = 67
    Top = 352
    object NewFolder1: TMenuItem
      Caption = '&New Folder'
      OnClick = NewFolder1Click
    end
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Options = [cdPreventFullOpen]
    Left = 4
    Top = 316
  end
end